";
if (count($splt_rslt) > 0)
{
$finvr_bzv1=str_replace(" ","_",$invr_bzv1).".json";
$myFile = "./json/".$finvr_bzv1;
$smta_array=array();
$sa=0;
$smta_cnvs[0]="smta-cnvs";
$fh = fopen($myFile, 'w') or die("can't open file");
foreach($splt_rslt as $splt_key => $splt_val)
{
$tlkd_pos=strpos($splt_key,$invr_corp,0);
if ($tlkd_pos === false)
{
// echo "
The string ".$invr_rchs." was not found in the string ".$gw27_rchs;
}
else
{
// echo "
The string ".$invr_corp." was in the string ".$splt_key;
// echo "
TLKD POS ".$tlkd_pos." SPLT KEY ".$splt_key;
/////////////////////
$splt_itms=explode("!!",$splt_key);
// print_r($splt_itms);
////////////////
$split_itms[7]=strlen($splt_itms[4]);
$splt_dtls=explode("@",$splt_itms[4]);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
// print_r($splt_dtls);
if ($splt_rchs[0] != null)
{
$smta_array[$sa]=$splt_itms[3]."!!".$splt_itms[4];
$sa=$sa+1;
// $smta_array= array_merge($smta_array,$splt_itms);
// echo "
SPLT JSON ".$splt_json;
// print_r($row);
// echo "
SMTA JSON
";
// print_r($obj);
// echo "";
foreach($splt_itms as $obj_key => $obj_val)
{
// echo "
OBJ KEY ".$obj_key." OBJ VAL ".$obj_val;
if ($obj_key == "2")
{
$obj_text="";
if ($orelt != $obj_val)
{
$obj_text=$obj_text.$obj_val;
$orelt=$obj_val;
}
}
if ($obj_key == "4")
{
if ($krelt != $obj_val)
{
$obj_dtls=explode("@",$obj_val);
foreach($obj_dtls as $val_key => $val_val)
{
if ($val_val != null)
{
// echo " VAL VAL ".urlencode($val_val);
}
}
$obj_text=$obj_text. " | ".$vr." | ".$obj_val." |
";
echo $obj_text;
$krelt=$obj_val;
$vr=$vr+1;
}
}
}
}
// echo "
";
////////////////
// echo "
KEY ".$splt_key." VAL ".$splt_val;
$splt_scre=$splt_itms[0];
$splt_taal=$splt_itms[1];
$splt_chbt=$splt_itms[2];
$splt_cont=$splt_itms[3];
$splt_antw=$splt_itms[4];
$splt_dtls=explode("@",$splt_antw);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
$ssplt_antw=str_replace(" ","+",$splt_rchs);
// echo "
SPLT RCHS ".urlencode($splt_rchs)." SPLT LNKS ".urlencode($splt_lnks);
// echo "
SPLT CONT ".$splt_cont;
// echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$zoek_ook=" ".$splt_rchs." ";
if (strlen($splt_rchs) > 1 and substr($splt_cont,0,6) == "./data")
{
// echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$dspl_antw=$splt_rchs;
$antw_smts=explode("@",$dspl_antw);
// print_r($antw_smts);
$dspl_antw=str_replace("@"," ",$dspl_antw);
$dspl_antw=str_replace("%%",$splt_lnks,$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$invr_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrbzkr",$invr_bzkr,$dspl_antw);
$dspl_antw=str_replace("invrcont",$splt_cont,$dspl_antw);
$dspl_antw=str_replace("ipcdland",$ipcd_land,$dspl_antw);
$dspl_antw=str_replace("invrmin1","".$invr_min1."", $dspl_antw);
$invr_bzv2=$dspl_antw;
// echo "
".$splt_chbt." over ".$dspl_antw."";
$dspl_antw=str_replace("invrlnks","".$lnks_lnks."".$dspl_antw);
$dspl_antw=str_replace("invrrchs","".$lnks_rchs."".$dspl_antw);
// echo "
DIT DENKT NA INVRRCHS ".$splt_chbt."".$dspl_antw."";
// $invr_bzv2=$dspl_antw;
}
}
}
}
// echo "
INVR BZV2 ".$invr_bzv2;
////////////////////////////////////// LOSSE ITEMS
$splt_rslt=xtrt_xxxx($invr_bzv1,$invr_taal,"splt");
// print_r($splt_rslt);
// echo "
ITEM RSLT ".count($splt_rslt)." BZV1 ".$invr_bzv1;
$sr=0;
$bc=0;
if (count($splt_rslt) > 0)
{
echo "
";
foreach($splt_rslt as $splt_key => $splt_val)
{
if ($crelt != $splt_chbt)
{
// echo "
Context: ".$splt_chbt;
$crelt=$splt_chbt;
}
$splt_itms=explode("!!",$splt_key);
// echo "
KEY ".$splt_key." VAL ".$splt_val;
$splt_scre=$splt_itms[0];
$splt_taal=$splt_itms[1];
$splt_chbt=$splt_itms[2];
$splt_cont=$splt_itms[3];
$splt_domn=$splt_itms[3];
$splt_antw=$splt_itms[4];
// echo "
DIT WEET ".$splt_chbt."".$splt_antw."";
$splt_dtls=explode("@",$splt_antw);
$splt_lnks=$splt_dtls[0];
$splt_rchs=$splt_dtls[1];
$splt_rchs=str_replace("%%",$splt_lnks);
$ssplt_antw=str_replace(" ","+",$splt_rchs);
// echo "
Context ".$splt_cont;
// echo "
DIT DENKT CHBT ".$splt_chbt."SPLT RCHS ".$splt_antw."";
$zoek_ook=" ".$splt_rchs." ";
if (strlen($splt_rchs) > 1 and substr($splt_cont,0,6) == "./data" )
// if ($splt_rchs !=null and $splt_lnks == $invr_bzv1 and $splt_chbt == $invr_chbt and $splt_lnks == $invr_corp)
{
// echo "
DIT DENKT ".$splt_chbt."".$splt_rchs."";
$dspl_antw=$splt_rchs;
$dspl_antw=str_replace("@"," ",$dspl_antw);
$dspl_antw=str_replace("%%",$splt_lnks,$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$invr_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrbzkr",$invr_bzkr,$dspl_antw);
$dspl_antw=str_replace("invrcont",$splt_cont,$dspl_antw);
$dspl_antw=str_replace("ipcdland",$ipcd_land,$dspl_antw);
$dspl_antw=str_replace("invrmin1",$invr_min1,$dspl_antw);
$invr_bzv2=$dspl_antw;
$sinvr_bzv2=str_replace(" ","+",$invr_bzv2);
// echo "
".$splt_chbt." over ".$dspl_antw."";
// $dspl_antw=str_replace("invrlnks","".$lnks_lnks."".$dspl_antw);
// $dspl_antw=str_replace("invrrchs","".$lnks_rchs."".$dspl_antw);
// echo "
DIT DENKT NA INVRRCHS ".$splt_chbt."".$dspl_antw."";
// $invr_bzv2=$dspl_antw;
echo "";
if ($sr == 0)
{
$antw_ook="".$invr_chbt."";
echo "
".$antw_ook."
";
$antw_smts=explode(":",$dspl_antw);
$da=0;
if (count($antw_smts) > 1 and $da ==0)
{
echo "Voor ".$antw_smts[0]." zijn er meerdere keuzes mogelijk. Ik noem er ".count($antw_smts);
$da=$da+1;
}
foreach($antw_smts as $smts_key => $smts_val)
{
if ($da > 0)
{
// echo "".$smts_val." |
";
$da=$da+1;
}
}
// echo "
";
// echo "Dit heb ik ook nog gevonden |
";
$sr=$sr+1;
}
else
{
if ($sr > 0 and $sr < 8)
{
if ($splt_rchs != $srelt)
{
$sr=$sr+1;
$srelt=$splt_rchs;
// echo "
INVR MIN1 ".$invr_min1;
$antw_ook=" ".$invr_bzv2." ";
echo "".$sr." | ".$invr_bzv2." |
";
// echo "".$antw_ook." |
";
$bzv2_array[$bc]=$invr_bzv2;
$bc=$bc+1;
}
}
}
}
}
}
foreach($bzv2_array as $bzv2_key => $bzv2_val)
{
$full_val=$bzv2_val;
include("wrte-data-func.php");
}
echo "
";
$smta_json=json_encode($smta_array);
fwrite($fh, $smta_json);
$obj = json_decode($smta_json,true);
fclose($fh);
// echo "
Check ".$invr_bzv1."";
$str = file_get_contents($myFile);
// echo "
STR ".$str;
$obj = json_decode($str,true);
// echo "";
// print_r($obj);
// echo "
";
$json = json_decode($str, true);
// echo "
JSON ".$json;
// echo '' . print_r($json, true) . '
';
if ($invr_func== "cnvs")
{
$antw_ook="U kunt reageren door hier te klikken";
echo "
".$antw_ook."
";
exit;
}
$bzv1_itms=explode(" ",$invr_bzv1);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
if (count($bzv1_itms) > 0 and $invr_rchs == null)
{
// print_r($bzv1_itms);
echo "
Grammatica>";
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
$zoek_ook=" ".$bzv1_val." ";
echo "-".$zoek_ook;
}
////////////////
echo "
Vragen>";
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
$zoek_calc=" ".$bzv1_val." ";
echo "-".$zoek_calc;
}
////////////////
}
if ($invr_rchs != null)
{
echo "
Gekozen sleutelwoord ".$invr_rchs."";
}
echo "
Basiswoord vertaald naar :".$invr_bzv1;
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
$zoek_calc=" ".$bzv1_val." ";
// echo "-".$zoek_calc;
}
/////////
$smts_rslt=tlkd_smts($invr_bzv1);
// krsort($smts_rslt);
// echo "
BZV1".$invr_bzv1." Aantal segmenten ".count($smts_rslt);
// print_r($smts_rslt);
if ($invr_bzv1== null)
{
echo "
Het aantal woorden per segment is minimaal 1 en mag maximaal 4 zijn.";
exit;
}
}
echo "
";
////////////////////////////////
/////////////////
echo "";
// echo "
SGMT ITMS ".count($sgmt_itms);
if(count($sgmt_itms) > 1)
{
$sql="SELECT * , MATCH (rchs) AGAINST ('$smts_text') AS score FROM splt WHERE MATCH (rchs) AGAINST ('$smts_text') order by `score` desc ";
$sql = "SELECT * FROM splt where `lnks` is '$smts_text' order by `lnks`,`rchs` asc";
}
if(count($bzv1_itms) == 1 )
{
$ssmts_text=str_replace(" ","+",$smtst_text);
$lnks_item=$smts_text."%";
$rchs_item="%".$invr_bzv2."%";
$lgrm_item=$invr_lgrm."%";
$zoek_item=$lnks_item;
$zoek_item=str_replace(" ","",$zoek_item);
$uzoek_item=urlencode($zoek_item);
// echo "UZOEK ITEM ".$uzoek_item;
$uzoek_item=str_replace("%0D%0A","",$uzoek_item);
$uzoek_item=str_replace("%25","",$uzoek_item);
// echo "
UZOEK ITEM ".$uzoek_item;
$zoek_item=urldecode($uzoek_item);
$sql = "SELECT * FROM gw27 where `lnks` like '$zoek_item' order by `lnks`,`rchs` asc";
}
if (strlen($smts_key) > 2)
{
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$gw27result = mysql_query($sql, $link);
$gw27_num = mysql_num_rows($gw27result);
// echo "
SQL ".$sql." AANTAL ".$gw27_num;
// echo "
Aantal treffers totaal ".$gw27_num;
$wt=0;
if ($gw27_num == 0 )
{
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$zoek_ook="- ".$smts_text." ";
$wdnf_cntr=$wdnf_cntr+1;
if ($userip != "81.207.16.26")
{
// echo "
".$userip." ".$woordonderhoud." ".$aanmelden." M:info@semanta.nl T:1-514-331-0172 T:31-162-313323";
}
// echo $zoek_ook;
$wt=0;
}
if ($gw27_num != 0 )
{
// echo "
Er zijn voor uw keuze ".$gw27_num," grammaticakenmerken";
while ($row = mysql_fetch_assoc($gw27result) and $cr < 4)
{
$cr=$cr+1;
$gw27_ipad=$row['ipad'];
$gw27_taal=$row['taal'];
$gw27_domn=$row['domn'];
$domn_vrag=$gw27_domn;
$gw27_lnks=$row['lnks'];
$gw27_rchs=$row['rchs'];
// echo "
GW27 LNKS ".$gw27_lnks." INVR RCHS ".$invr_rchs;
if(count($bzv1_itms) > 0 and $rrelt != $gw27_rchs)
{
$rrelt=$gw27_rchs;
$rchs_itms=explode("@",$gw27_rchs);
$rchs_vrag=$rchs_itms[0];
$rchs_antw=$rchs_itms[1];
// echo "
RCHS VRAG ".$rchs_vrag." RCHS ANTW ".$rchs_antw;
$rchs_rslt=explode("@",$gw27_domn);
// print_r($rchs_dtls);
if(count($rchs_rslt) > 1)
{
$rchs_vrag=$rchs_rslt[0];
$domn_vrag=$rchs_rslt[1];
}
$srchs_vrag=str_replace(" ","+",$rchs_vrag);
$slnks_vrag=str_replace(" ","+",$lnks_vrag);
$zoek_ook="".$rchs_vrag."";
// $wdnf_cntr=$wdnf_cntr+1;
// echo "".$gw27_taal." | ".$domn_vrag." | ".$zoek_ook." | ".$gw27_rchs." ". $rchs_antw." |
";
// echo "".$zoek_ook." |
";
$ipad_cmds=$userip;
$cmds_bzv2=$invr_bzv1."[splt[".$gw27_taal."[".$domn_vrag."@".$rchs_antw."[".$rchs_vrag."[".$cr;
// echo "ONDERWERP | ".$cmds_bzv2." |
";
// include ("chbt-cmds-code-2.php");
$tlkd_pos=strpos($gw27_lnks.$gw27_rchs,$invr_rchs,0);
// echo "
TLKD POS ".$tlkd_pos." GW27 ".$gw27_lnks."<>".$gw27_rchs." INVR RECHS ".urlencode($invr_rchs);
if ($tlkd_pos === false)
{
// echo "
The string ".$invr_rchs." was not found in the string ".$gw27_rchs;
}
else
{
// echo "
The string ".$invr_rchs." was in the string ".$gw27_lnks."<>".$gw27_rchs;
$rslt_array[$gw27_taal."!!".$gw27_lnks."!!".$gw27_rchs]=$rslt_array[$gw27_taal."!!".$gw27_lnks."!!".$gw27_rchs]+1;
// echo "
GW27 LNKS ".$gw27_lnks." INVR RCHS ".$invr_rchs;
}
}
$rchs_dtls=explode(",",$gw27_rchs);
// print_r($rchs_dtls);
foreach($rchs_dtls as $rchs_key => $rchs_gram)
{
if ($gw27_lnks == $invr_bzv1 or $gw27_rchs == "tbd")
{
$gram_array[$gw27_taal."!!".$gw27_lnks."!!".$gw27_rchs]=$gram_array[$gw27_taal."!!".$gw27_lnks."!!".$gw27_rchs]+1;
}
}
$gw27_levl=$row['levl'];
}
}
}
}
// echo "
TWO
";
print_r($two_array);
// echo "
THREE
";
// print_r($three_array);
$lr=0;
$bzv1_itms=explode(" ",$invr_bzv1);
print_r($bzv1_itms);
echo "";
if (count($three_array) > 0)
{
foreach($three_array as $three_key => $three_val)
{
if ($invr_bzv1 != $three_key)
{
$pos = strpos($invr_bzv1, $three_key);
if ($pos === false)
{
// echo "The string '$two_key' was not found in the string '$three_key'";
}
else
{
// echo '
The string '$two_key' was found in the string '$three_key';
$lr=$lr+1;
$ipad_cmds=$userip;
$cmds_bzv2=$invr_bzv1."[splt[".$invr_taal."[".$invr_corp."[".$three_key."[".$pos;
echo "THREE | ".$cmds_bzv2." |
";
include ("chbt-cmds-code-2.php");
$rr=0;
}
}
foreach($two_array as $two_key => $two_val)
{
$pos = strpos($three_key, $two_key);
if ($pos === false)
{
// echo "The string '$two_key' was not found in the string '$three_key'";
}
else
{
// echo '
The string '$two_key' was found in the string '$three_key';
// echo " and exists at position $pos";
$rr=$rr+1;
$text_lnks=$three_key;
$text_rchs=$two_key;
$ipad_cmds=$userip;
$cmds_bzv2=$text_lnks."[splt[".$invr_taal."[".$invr_bzv1."[".$text_rchs."[".$pos;
echo "
TWO | ".$cmds_bzv2." |
";
include ("chbt-cmds-code-2.php");
}
}
}
}
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
$bzv1_val=trim($bzv1_val);
if (strlen($bzv1_val) > 3)
{
$pos = strpos($invr_bzv1, $bzv1_val);
if ($pos === false)
{
// echo "The string '$two_key' was not found in the string '$three_key'";
}
else
{
// echo '
The string '$two_key' was found in the string '$three_key';
// echo " and exists at position $pos";
$text_lnks=$bzv1_val;
$text_rchs=$two_key;
$ipad_cmds=$userip;
$cmds_bzv2=$text_lnks."[splt[".$invr_taal."[".$invr_corp."[".$invr_bzv1."[".$pos;
echo "
ONE | ".$cmds_bzv2." |
";
// include ("chbt-cmds-code-2.php");
}
}
}
exit;
asort($sgmt_array);
// print_r($sgmt_array);
foreach($sgmt_array as $sgmt_key => $sgmt_val)
{
echo "
".$sgmt_val;
}
$cntr_rslt=count($rslt_array);
// echo "
RSLT ARRAY ".count($rslt_array);
$cr=0;
echo "";
foreach($rslt_array as $rslt_key => $rslt_val)
{
$cr=$cr+1;
if ($cr < $cntr_rslt)
{
$rslt_itms=explode("!!",$rslt_key);
$rslt_lnks=$rslt_itms[2];
$rslt_rchs=$rslt_itms[3];
// echo "".$cr."-".$rslt_lnks." | ".$rslt_rchs." |
";
}
}
echo "
";
// print_r($gram_array);
if (count($bzv1_itms) ==1)
{
echo "";
echo "TAAL | GRAMMATICA | VRAGEN Automatisch afgeleid | WIKIPEDIA Raadplegen en bewaren | BOL.COM Raadplegen en bekijken |
";
}
foreach($gram_array as $rchs_key => $rchs_word)
{
$rchs_itms=explode("!!",$rchs_key);
// print_r($rchs_itms);
$rchs_taal=$rchs_itms[0];
$rchs_lnks=$rchs_itms[1];
$rchs_text=$rchs_itms[2];
if ($rrelt != $rchs_lnks)
{
$rrelt= $rchs_lnks;
// $lrchs_text="".$rchs_text."";
$srchs_lnks=$rchs_lnks;
$srchs_lnks=str_replace(" ","+",$srchs_lnks);
$srchs_lnks=str_replace(",","+",$srchs_lnks);
$zoek_ook=" ".$rchs_lnks." ";
$zoek_calc=" ".$rchs_lnks." ";
$zoek_wiki=" ".$rchs_lnks." ";
$zoek_bol= " ".$rchs_lnks." ";
if (count($bzv1_itms) !=1)
{
// echo "".$rchs_taal." | Not applicable | ".$zoek_calc." | ".$zoek_wiki." | ".$zoek_bol." |
";
}
else
{
// echo "".$rchs_taal." | ".$zoek_ook." | ".$zoek_calc." | ".$zoek_wiki." | ".$zoek_bol." |
";
}
}
}
echo "
";
// print_r($gram_array);
$smts_rslt=tlkd_smts($invr_bzv1);
echo "";
foreach($smts_rslt as $smts_key => $smts_val)
{
$splt_dtls=explode(" ",$smts_key);
$cntr_splt=count($splt_dtls);
// echo "
CNTR SPLT ITMS ".$cntr_splt."-SMTS KEY ".$smts_key;
// echo "";
$splt_rslt=xtrt_xxxx("xdotx".$smts_key,$invr_taal,"splt");
krsort($splt_rslt);
// print_r($splt_rslt);
$gs=0;
foreach($splt_rslt as $splt_key => $splt_val)
{
$splt_itms=explode("!!",$splt_key);
$splt_vrag=$splt_itms[3];
$splt_antw=$splt_itms[4];
$splt_dtls=explode("@",$splt_antw);
$splt_lnks=$splt_dtls[0];
$ssplt_lnks=str_replace(" ","+",$splt_lnks);
$splt_rchs=$splt_dtls[1];
// echo "
SPLT LNKS ".$splt_lnks." SPLT RCHS ".urlencode($splt_rchs);
$bzv1_lnks=explode($splt_lnks,$invr_bzv1);
if(count($bzv1_lnks) == 2)
{
// print_r($bzv1_lnks);
$lnks_lnks=$bzv1_lnks[0];
$lnks_rchs=$bzv1_lnks[1];
}
$ssplt_antw=str_replace(" ","+",$splt_rchs);
// if ($splt_rchs !=null and $splt_lnks == $smts_key)
// if ($splt_vrag !=null and $dspl_antw != null and $gs < 64)
if ($splt_rchs !=null and $splt_rchs != null and $cntr_splt > 1 and $gs < 6 and $cntr_splt > 1)
{
$antw_smts=explode(":",$dspl_antw);
// print_r($antw_smts);
//////// Keuzes //////
$antw_smts=explode(":",$dspl_antw);
$da=0;
if (count($antw_smts) > 1 and $da ==0)
{
// echo "
Voor ".$invr_bzv1." kunt u meerdere keuzes maken
";
$da=$da+1;
}
foreach($antw_smts as $smts_key => $smts_val)
{
if ($da > 0)
{
// echo "
".$smts_val;
$da=$da+1;
}
}
// echo "
SPLT LNKS ".$splt_vrag." SPLT RCHS ".urlencode($splt_rchs);
$dspl_antw=$splt_rchs;
$dspl_antw=str_replace("@"," ",$dspl_antw);
$dspl_antw=str_replace("%%",$splt_lnks,$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrlnks",$lnks_lnks,$dspl_antw);
$dspl_antw=str_replace("invrrchs",$lnks_rchs,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$invr_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("ipcdland",$ipcd_land,$dspl_antw);
$dspl_antw=str_replace("invrmin1","".$invr_min1."", $dspl_antw);
if ($srelt != $smts_key)
{
// echo " | ".$smts_key." |
";
$srelt=$smts_key;
}
$zoek_ook=" ".$splt_lnks." ";
$rslt_array[$splt_vrag."@".$zoek_ook."@".$dspl_antw."@".$smts_key]=$rslt_array[$splt_vrag."@".$zoek_ook."@".$dspl_antw."@".$smts_key]+1;
echo "".$splt_vrag." | ".$zoek_ook." | ".$dspl_antw." |
";
$invr_bzv2=$dspl_antw;
$gs=$gs+1;
// echo "
SPLT LNKS ".$splt_lnks." SPLT RCHS ".urlencode($splt_rchs);
// echo $invr_bzv2;
}
}
}
ksort($rslt_array);
// print_r($rslt_array);
foreach($rslt_array as $rslt_key => $rslt_val)
{
$rslt_dtls=explode("@",$rslt_key);
// echo "
RONDE 1 corpora bepaling";
// print_r($rslt_dtls);
$rslt_vrag=$rslt_dtls[0];
if (substr($rslt_vrag,0,6) == "./data")
{
$data_itms=explode("/",$rslt_vrag);
// print_r($data_itms);
$corp_array[$data_itms[2]]=$corp_array[$data_itms[2]]+1;
$rslt_zoek=$rslt_dtls[1];
$rslt_antw=$rslt_dtls[2];
$rslt_smts=$rslt_dtls[3];
// echo "
".$zoek_data;
}
else
{
$corp_array["semanta"]=$corp_array["semanta"]+1;
}
}
arsort($corp_array);
// print_r($corp_array);
foreach($corp_array as $corp_key => $corp_val)
{
echo "--".$corp_key."";
}
/////////////////////////////////
foreach($rslt_array as $rslt_key => $rslt_val)
{
$rslt_dtls=explode("@",$rslt_key);
$rslt_vrag=$rslt_dtls[0];
$rslt_zoek=$rslt_dtls[1];
$rslt_antw=$rslt_dtls[2];
$rslt_smts=$rslt_dtls[3];
$zoek_data=$rslt_vrag;
$chck_pos=$rslt_smts."-".$rslt_vrag."-".$rslt_antw;
$tlkd_pos=strpos($chck_pos,$invr_corp,0);
if ($tlkd_pos === false)
{
// echo "
The string ".$invr_corp." was not found in the string ";
}
else
{
// echo "
The string ".$invr_corp." was in the string ".$chck_pos;
// echo "
TLKD POS ".$tlkd_pos." RSLT KEY ".$rslt_key;
/////////////////////
if ($zrelt != $rslt_vrag.$rslt_zoek.$rslt_antw)
{
$zrelt=$rslt_vrag.$rslt_zoek.$rslt_antw;
if (substr($rslt_vrag,0,6) == "./data")
{
$zoek_data="".$rslt_vrag."";
// echo "".$rslt_smts." | ".$zoek_data." | ".$rslt_zoek." | ".$rslt_antw." |
";
}
if($rrelt != $rslt_vrag.$rslt_zoek)
{
$rrelt=$rslt_vrag.$rslt_zoek;
if (substr($rslt_vrag,0,6) != "./data")
{
$rslt_domn=$invr_bzv1;
$rslt_lnks=$rslt_zoek;
$rslt_rchs=$rslt_antw;
$ipad_cmds=$userip;
$cmds_bzv2=$rslt_lnks."[splt[".$invr_taal."[".$rslt_domn."[".$rslt_rchs."[".$cr;
echo "SMTA REACTIE | ".$cmds_bzv2." |
";
include ("chbt-cmds-code-2.php");
echo "
".$rslt_smts." | ".$zoek_data." | ".$rslt_zoek." | ".$rslt_antw." |
";
}
}
if (substr($rslt_vrag,0,6) == "./data")
{
echo "".$rslt_smts." | ".$zoek_data." | ".$rslt_zoek." | ".$rslt_antw." |
";
}
// echo "".$rslt_smts." | ".$zoek_data." | ".$rslt_zoek." |
";
}
}
}
echo "
";
//////////////////
$sql = "SELECT * FROM gw27 where `rchs` like '$zoek_item' and `taal` = '$invr_taal' order by `lnks`,`rchs` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$gw27result = mysql_query($sql, $link);
$gw27_num = mysql_num_rows($gw27result);
// echo "
Aantallen FREQ ".$sql." ".$gw27_num;
$wt=0;
if ($gw27_num == 0 )
{
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$zoek_ook="- ".$gw27_rchs." ";
$wdnf_cntr=$wdnf_cntr+1;
// echo $zoek_ook;
$wt=0;
if ($userip != "81.207.16.26")
{
echo "
".$ip_adres." ".$woordonderhoud." ".$aanmelden." M:info@semanta.nl T:1-514-331-0172 T:31-162-313323";
}
}
if ($gw27_num != 0 )
{
// echo "
Er zijn voor uw keuze ".$gw27_num," grammaticakenmerken";
while ($row = mysql_fetch_assoc($gw27result) )
{
$gw27_ipad=$row['ipad'];
$gw27_taal=$row['taal'];
$gw27_domn=$row['domn'];
$gw27_lnks=$row['lnks'];
$gw27_rchs=$row['rchs'];
$rchs_dtls=explode(",",$gw27_rchs);
// print_r($rchs_dtls);
$gw27_levl=$row['levl'];
foreach($rchs_dtls as $dtls_key => $dtls_val)
{
if (strlen($dtls_val) == 3)
{
if ($dtls_val == "tbd" and count($rchs_dtls) == 1)
{
$wdnf_cntr=$wdnf_cntr+1;
$zoek_ook="- ".$gw27_lnks." ";
echo $zoek_ook;
}
else
{
$dtls_array[$dtls_val]=$dtls_array[$dtls_val]+1;
}
}
}
}
}
// echo "
Er zijn ".$wdnf_cntr." niet-grammaticale woordvormen.";
arsort($dtls_array);
foreach($dtls_array as $dtls_key => $dtls_val)
{
if ($dtls_key == "prs" or $dtls_key == "org" or $dtls_key == "anm" or $dtls_key == "vnm")
{
// echo "
".$dtls_key." ".$dtls_val;
}
}
echo "
";
?>